为什么"PPT文本转换器"只能将PPT的三页转换成WORD？

程序有问题。请将下列内容复制到记事本里面，并保存为：PPT转WORD.vbs
然后将要转换的PPT和这个程序文件复制到C盘根目录下，双击这个程序文件运行即可在C盘根目录下自动生成一个WORD文件，内容就是PPT的内容。

'绑定到本地计算机
strComputer = "."
'如果发生错误，继续执行
on error resume next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office"
'创建一个word对象
Set objWord = CreateObject("Word.Application")
'创建一个ppt对象
Set pptApp = CreateObject("PowerPoint.application")
'获得c:\目录下的文件集合
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileList
&#